home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / GOOD.MUSIC.bas < prev    next >
BASIC Source File  |  2003-06-12  |  718b  |  14 lines
  1. 10  REM  GOOD.MUSIC
  2. 15 D$ =  CHR$(13) + CHR$(4)
  3. 20  HOME : VTAB 3: HTAB 7
  4. 30  PRINT "ALLEN MAYNARD": HTAB 7: PRINT "1603 FARMSTEAD AVENUE": HTAB 7: PRINT "HACIENDA HEIGHTS, CALIF. 91745"
  5. 40  PRINT : PRINT "SENT IN SOME GOOD MUSIC."
  6. 50  PRINT : PRINT "THE MUSIC IS IN THE BINARY FILE BACH*."
  7. 60  PRINT : PRINT : PRINT "BACH* PLAYS FOR OVER THREE MINUTES."
  8. 70  PRINT : PRINT "AFTERWARDS THE DISK IS REBOOTED."
  9. 80  PRINT : PRINT : PRINT "WANT TO HEAR IT? (Y OR N) ";: GET R$: PRINT R$
  10. 90  IF R$ < >"Y"  THEN  PRINT D$"RUN KICK.IT.OFF"
  11. 900  PRINT D$"BLOAD COVER.UNPACK"
  12. 910  PRINT D$"BLOAD COVER.OCT.PCKD"
  13. 920  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0: CALL 4096
  14. 1000  PRINT D$"EXEC MUSIC.EXEC": END